# name : dlgcdir, changing the working path to current directory
# key : dlgcdir_change_to_cwd
# contributor: Shuguang Sun
# --
%let rc = %sysfunc(filename(fr,.));
%let curdir = %sysfunc(pathname(&fr));
%let rc = %sysfunc(filename(fr));
%let rc = %sysfunc(dlgcdir("&curdir."));